Old Testament Foundatiosn with Philip Yancey/Old Testament Foundatiosn with Philip Yancey - Disc 1.iso/pc/data/m37.dir/00016.ls

Text File | 1996-09-06 | 929 b | 32 lines

on startMovie
  global gOnIBM, gAnswerFieldSprite
  set gAnswerFieldSprite to 10
  identifyPlatform()
  repeat with x = 1 to 10
    put " " into field ("field" & x)
    if gOnIBM then
      set the textFont of field ("field" & x) to "Arial"
      set the textSize of field ("field" & x) to 12
      next repeat
    end if
    set the textFont of field ("field" & x) to "Geneva"
    set the textSize of field ("field" & x) to 12
  end repeat
end

on checkKey
  global gAnswerFieldSprite
  if the key = TAB then
    if gAnswerFieldSprite < 19 then
      set the editableText of sprite gAnswerFieldSprite to 0
      set gAnswerFieldSprite to gAnswerFieldSprite + 1
      set the editableText of sprite gAnswerFieldSprite to 1
    else
      set the editableText of sprite gAnswerFieldSprite to 0
      set gAnswerFieldSprite to 10
      set the editableText of sprite gAnswerFieldSprite to 1
    end if
  end if
  updateStage()
end